[8]?
?
Example?Initialization?Program?
?
?
//‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐?
Sub?Writecom?
?P1?=?A???????????????????????????????????????????????????????'move?data?to?port?1?
?Set?P3.0?????????????????????????????????????????????????????'set?I/D?for?instruction?
?Reset?P3.1???????????????????????????????????????????????????'reset?/CS?
?Reset?P3.4???????????????????????????????????????????????????'reset?/WR?
?Set?P3.1?????????????????????????????????????????????????????'set?/CS?
?Set?P3.4?????????????????????????????????????????????????????'set?/WR?
End?Sub?
?
Sub?Writedata?
?P1?=?A???????????????????????????????????????????????????????'move?data?to?port?1?
?Reset?P3.0???????????????????????????????????????????????????'reset?I/D?for?instruction?
?Reset?P3.1?
?Reset?P3.4???????????????????????????????????????????????????'toggle?/CS?and?/WR?
?Set?P3.1?
?Set?P3.4?
End?Sub?
?
//‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐?
Sub?Init?
?Set?P3.6?
?Set?P3.7?
?Reset?P3.3???????????????????????????????????????????????????'reset?FS?
?A?=?&H00?
?Call?Writedata?
?Call?Writedata???????????????????????????????????????????????'text?address?=?0000h?
?A?=?&H40?
?Call?Writecom????????????????????????????????????????????????'text?home?address?set?
?A?=?&H00?
?Call?Writedata?
?A?=?&H40?????????????????????????????????????????????????????'graphic?home?address?=?4000h?
?Call?Writedata?
?A?=?&H42?
?Call?Writecom????????????????????????????????????????????????'graphic?home?address?set?
?A?=?&H1E?
?Call?Writedata?
?A?=?&H00?????????????????????????????????????????????????????'text?area?address?=?001Eh?
?Call?Writedata?
?A?=?&H41?
?Call?Writecom????????????????????????????????????????????????'text?area?control?set?
?A?=?&H1E?
?Call?Writedata?
?A?=?&H00?????????????????????????????????????????????????????'graphic?area?=?001Eh?
?Call?Writedata?
?A?=?&H43?
?Call?Writecom????????????????????????????????????????????????'graphic?area?control?set?
?A?=?&H80?
?Call?Writecom????????????????????????????????????????????????'set?display?mode?
End?Sub?
?